home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Examples / DemoText / MDemoText.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.1 KB  |  45 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/0,n+]}
  2.  
  3. { MDemoText.p }
  4. { Copyright © 1985 - 1990 by Apple Computer, Inc. All rights reserved. }
  5.  
  6. PROGRAM DemoText;
  7.  
  8.   {$MC68020-}                                            { The main program must be universal code }
  9.   {$MC68881-}
  10.  
  11.     USES
  12.         { • MacApp }
  13.         UMacApp,
  14.  
  15.         { • Building Blocks }
  16.         UPrinting, UTEView,
  17.  
  18.         { • Implementation use }
  19.         UTEDocument, UDemoText;
  20.  
  21.     VAR
  22.         gDemoTextApplication: TDemoTextApplication;
  23.  
  24.         {$S Main}
  25.  
  26.     BEGIN
  27.     InitToolBox;                                        { Essential toolbox and utilities
  28.                                                          initialization }
  29.     IF ValidateConfiguration(gConfiguration) THEN        { Make sure we can run }
  30.         BEGIN
  31.         { Continue with remainder of initialization }
  32.         InitUMacApp(8);                                 { Initialize MacApp; 8 calls to MoreMasters
  33.                                                          }
  34.         InitUPrinting;                                    { Initialize the Printing unit }
  35.         InitUTEView;                                    { Initialize the TEView unit }
  36.  
  37.         New(gDemoTextApplication);                        { Create an application object }
  38.         FailNil(gDemoTextApplication);
  39.         gDemoTextApplication.IDemoTextApplication;        { Initialize the application }
  40.         gDemoTextApplication.Run;                        { Run the application }
  41.         END
  42.     ELSE
  43.         StdAlert(phUnsupportedConfiguration);
  44.     END.
  45.